home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / icicle.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  384 b   |  13 lines
  1. 10  SEED = VAL(MID$(TIMES$,4,2))*60 = VAL(RIGHT$(TIME$,2)):RANDOMIZE SEED
  2. 20  DIM V(79)
  3. 30  CLS:KEY OFF
  4. 40  X = INT(RND(1)*79)+1
  5. 50  Y = V(X)
  6. 60  Y = Y + 1:V(X) = Y
  7. 70  IF V(X) = 24 THEN GOTO 100
  8. 80  LOCATE 25-Y,X:PRINT CHR$(  219);
  9. 90  GOTO 40
  10. 100  LOCATE 1,X:COLOR 26: PRINT CHR$(219  );:COLOR 7:
  11. 110  A$ = INKEY$:IF LEN(A$) >0 THEN ERASE V:GOTO 20
  12. 120  GOTO 110
  13.